home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u5.d64 / credits.doc (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  100 lines
  1. 1 POKE45,131:POKE46,031:CLR:POKE53265,PEEK(53265)AND239
  2. 2 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  3. 3 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  4. 4 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]sUPER";
  5. 5 PRINT"aIDEFORMALDEVELOPMENTBEGANIN[159]}}[153]THEEARLYPARTOF1983.tWOPR";
  6. 6 PRINT"IOR[159]}}[153]VERSIONSAREALREADYRELEASEDINTOTHE[159]}}[153]PUBLICDOMAIN.tHEFIRS";
  7. 7 PRINT"TWASSIMPLYA[159]}}[153]COMBINATIONOFtINYaIDpLUS(WHICHIS[159]}}[153]INITSELFA";
  8. 8 PRINT"COMBINATIONOFtINYaIDBY[159]}}[153]jIMbUTTERFIELDANDbASICaIDBYdAVID[159]}}";
  9. 9 PRINT"[153]sEILER)BYdAVIDa.hOOKANDTHEFIRST[159]}}[153]doswEDGEFORTHEcOMMORORE6";
  10. 10 PRINT"4BYbOB[159]}}[153]fAIRBAIRN.sUPERaID(VERSION1)WAS[159]}}[153]THEBEGINNINGOF";
  11. 11 PRINT"ANATTEMPTTOCREATE[159]}}[153]AFRIENDLYPROGRAMMINGENVIRONMENTOUT[159]}}[153]OFWH";
  12. 12 PRINT"ATiCONSIDEREDAUSERHOSTILE[159]}}[153]SITUATION.sUPERaID(VERSION2)AD";
  13. 13 PRINT"DED[159]}}[153]THErestoreFUNCTIONS.tHEINSPIRATION[159]}}[153]FORTHISSECTIONOFTHE";
  14. 14 PRINT"UTILITYCAME[159]}}[153]FROMAPROGRAMBYmICHAELj.kERYAN[159]}}[153]ORIGINALLY";
  15. 15 PRINT"CALLEDdospLUSANDLATER[159]}}[153]RENAMEDdOES-iT.tHEPROGRAMFIRST[159]}[171]";
  16. 16 PRINT"``````````````[178]````````[178]``````````````[179]}[155]cREDITS[159]}[154]pAGE1[159]}[155]rET";
  17. 17 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  18. 18 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  19. 19 GOSUB94
  20. 20 POKE53265,PEEK(53265)AND239:CLR
  21. 21 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  22. 22 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  23. 23 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]APPEA";
  24. 24 PRINT"REDINASERIESOFEXCELLENTAR-[159]}}[153]TICLESINTHENOWDEFUNCTmICRO.";
  25. 25 PRINT"iT[159]}}[153]WASLATERRELEASEDINTOTHEPUBLIC[159]}}[153]DOMAINVIAAWRITTENAG";
  26. 26 PRINT"REEMENTBETWEEN[159]}}[153]cipug(THEcENTRALiLLINOISpETuSER'S[159]}}[153]gROUP)AND";
  27. 27 PRINT"mICRO.tHEPRESENTVERSION[159]}}[153](3.1)ISTHEONEOFFEREDINTHISSOFT-[159]}}";
  28. 28 PRINT"[153]WAREPACKAGE.iNTHISVERSIONTHEMAIN[159]}}[153]BODYOFTHEUTILITYISVIRTU";
  29. 29 PRINT"ALLYALL[159]}}[153]INHIDDENramALLOWINGFULLUSEOFALL[159]}}[153]basicMEMORYAND";
  30. 30 PRINT"THEENTIRE$C000TO[159][221][221][153]$CFFF(49152-53247)BLOCKTOO.[193]LSO,[159][221][221][153]AHIG";
  31. 31 PRINT"HLYMODIFIEDVERSIONOFsCREEN[159]}}[153]40.3BYbOBsWIFTISINCLUDED.sCR";
  32. 32 PRINT"EEN[159]}}[153]40.3ANDITSpalSOURCECODEMAYBE[159]}}[153]FOUNDONtpug(tORON";
  33. 33 PRINT"TOpETuSER'S[159]}}[153]gROUP)DISK#507.aDDITIONALTHANKSGO[159]}}[153]TOkEVINhO";
  34. 34 PRINT"PKINSOFcucug(cHAMPAIGN-[159]}}[153]uRBANAcOMMODOREuSER'SgROUP)FOR[159]}[171]";
  35. 35 PRINT"``````````````[178]````````[178]``````````````[179]}[155]cREDITS[159]}[154]pAGE2[159]}[155]rET";
  36. 36 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  37. 37 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  38. 38 GOSUB94
  39. 39 POKE53265,PEEK(53265)AND239:CLR
  40. 40 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  41. 41 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  42. 42 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]THEE";
  43. 43 PRINT"XCELLENTSCROLLER.tWOADDITIONAL[159]}}[153]PROGRAMSAREINCLUDEDONTHISDISK";
  44. 44 PRINT"FOR[159]}}[153]YOURENJOYMENTANDUSE.fIRST,THEBEST[159]}}[153]PUBLICDOMAINHIGH-RES";
  45. 45 PRINT"SCREENDUMPi[159]}}[153]HAVESEENISINCLUDED.iTISWRITTEN[159]}}[153]BYmICHAEL";
  46. 46 PRINT"j.kERYANANDTHEPROGRAMS[159]}}[153]ORIGINALSOURCECANBEFOUNDINmICRO[159]}}";
  47. 47 PRINT"[153]ISSUES73&74.aLSO,dISKdOCdELUXE[159]}}[153]BYkEVINhISEL(cucug)ISINC";
  48. 48 PRINT"LUDED.wE[159]}}[153]HOPEYOUENJOYANDUSETHISUTILITY.[159]}}";
  49. 49 PRINT"}}}}[152][164][164]";
  50. 50 PRINT"[159]}}[152][175][187]";
  51. 51 PRINT"[159]}}[152].[150]hAPPYpROGRAMMING![159]}}[155][173]`[189]";
  52. 52 PRINT"[159]}}}}";
  53. 53 PRINT"[155]sTEPHENr.gAST[159]}}[155]rICHARDrOLLINS[159]}[171]````";
  54. 54 PRINT"``````````[178]````````[178]``````````````[179]}[155]cREDITS[159]}[154]pAGE3[159]}[155]rETURN";
  55. 55 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  56. 56 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  57. 57 GOSUB94
  58. 58 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$="    [197]XIT [212]HE [208]ROGRAM    "
  59. 59 POKE53265,PEEK(53265)AND239
  60. 60 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  61. 61 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  62. 62 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}";
  63. 63 PRINT"}}[153]dOYOUWISHTO:";
  64. 64 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````";
  65. 65 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}";
  66. 66 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}";
  67. 67 PRINT"[173]````````````````````````[189]}}";
  68. 68 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}";
  69. 69 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}";
  70. 70 PRINT"}}}}";
  71. 71 PRINT"}}[150]hAPPYpROGRAMMING![159]";
  72. 72 PRINT"}}}}";
  73. 73 PRINT"}}}[171]``````````````[178]```````";
  74. 74 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155]   [195]REDITS    [159][221][154][212]HE[197]ND[159][221][155][196]OC[198]ILE#5[159][221][173][192][192][192][192][192][192][192][192]";
  75. 75 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  76. 76 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  77. 77 GETW$
  78. 78 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  79. 79 FORX=1066TO1070:POKEX,PO:NEXTX
  80. 80 FORX=1097TO1101:POKEX,PO:NEXTX
  81. 81 IFW$=""THEN77
  82. 82 IFW$=CHR$(13)THENGOTO89
  83. 83 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN85
  84. 84 GOTO77
  85. 85 CO=CO+1:IFCO>2THENCO=1
  86. 86 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]"
  87. 87 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]"
  88. 88 GOTO77
  89. 89 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
  90. 90 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  91. 91 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]"
  92. 92 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  93. 93 LOAD"DOC.DRIVER",8
  94. 94 GETW$
  95. 95 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  96. 96 FORX=1066TO1070:POKEX,PO:NEXTX
  97. 97 FORX=1097TO1101:POKEX,PO:NEXTX
  98. 98 IFW$=""THEN94
  99. 99 RETURN
  100.